home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / TPUG Xtras / Xtras / club1.d64 / club lib.notes (.txt) < prev    next >
Commodore BASIC  |  2009-02-07  |  5KB  |  142 lines
  1. 10 PRINT"[147][144]";:POKE53281,12:POKE53280,12:POKE198,.
  2. 15 PRINT"[147][144]PRINT TO S[146]CREEN OR P[146]RINTER?":WAIT198,1
  3. 16 GETP$:PRINT"[147]"CHR$(14);:IFP$="P"THENOPEN4,4,7
  4. 20 FORI=1TO22
  5. 30 READA$
  6. 40 IFA$="[157]"THENGOSUB80:CLOSE4:PRINTCHR$(142):GOTO150
  7. 50 PRINTA$:IFP$="P"THENPRINT#4,A$:NEXT:GOTO20
  8. 60 NEXT
  9. 70 GOSUB80:GOTO20
  10. 80 PRINT"      PRESS A KEY TO CONTINUE[146]";
  11. 90 GETB$:IFB$=""THEN90
  12. 100 PRINT"[147]":RETURN
  13. 150 PRINT"[147]LOAD"CHR$(34)"CLUB LIBRARIAN*"CHR$(34)",8":PRINT"RUN"
  14. 152 PRINT"";:POKE198,8:FORI=1TO7:POKE630+I,13:NEXT:STOP
  15. 10000 DATA"
  16. 10002 [131]"
  17. 10004 DATA"
  18. 10005 [131]"(null)HE LEN(null)(null)PEEK (null)RIGHT$PEEK(null)ATN(null)RIGHT$ATN(null)
  19. 10010 DATA"BY:
  20. 10020 [131]"ASCREDIE MID$. (null)AYBERGER
  21. 10030 DATA"14524 '[206]' [211]TREET
  22. 10040 [131]"(null)MAHA, (null)VAL 68137
  23. 10050 DATA"
  24. 10060 [131]"(null)HE LEN(null)(null)PEEK (null)RIGHT$PEEK(null)ATN(null)RIGHT$ATN(null) IS DESIGNED TO HELP 
  25. 10070 DATA"INDIVIDUALS AND CLUBS PRODUCE SUMMARY 
  26. 10080 [131]"AND DETAILED REPORTS FOR EACH DISKETTE 
  27. 10090 DATA"WITHIN THEIR COLLECTION.  [213]P TO 900 
  28. 10100 [131]"PROGRAMS CAN BE RECORDED IN EACH OF 21 
  29. 10110 DATA"CATAGORIES.  [212]HE PROGRAM CAN EASILY BE 
  30. 10120 [131]"CUSTOMIZED BY CHANGING THE LOAD/SAVE 
  31. 10130 DATA"OPTIONS AND CLUB INFORMATION STORED IN 
  32. 10140 [131]"DATA STATEMENTS AT THE END OF THE 
  33. 10150 DATA"PROGRAM.
  34. 10160 [131]"
  35. 10162 DATA"
  36. 10164 [131]"
  37. 10170 DATA"[206][207][212][197][211].....
  38. 10180 [131]"(null)RIOR TO USING THE LENLUB (null)IBRARIAN YOU 
  39. 10190 DATA"SHOULD CREATE A '[204]IBRARY [196]ISK' BY USING
  40. 10200 [131]"A FILE COPIER SUCH AS '(null)STR$ ASCRIGHT$(null)VAL LEN(null)(null)RIGHT$VAL(null)' 
  41. 10210 DATA"TO COPY THE FOLLOWING FILES ONTO A 
  42. 10220 [131]"NEWLY FORMATED DISKETTE.
  43. 10240 DATA"1. [195][204][213][194] [204][201][194][210][193][210][201][193][206]
  44. 10250 [131]"2. LEN(null)(null)PEEK (null)RIGHT$PEEK.STR$RIGHT$(null)    3. LEN(null)(null)PEEK (null)RIGHT$PEEK.(null)ATN(null)RIGHT$
  45. 10260 DATA"4. [195][204][213][194] [204][201][194].[211][207][210][212]   5. [195][204][213][194] [204][201][194].[206][207][212][197][211]
  46. 10270 [131]"
  47. 10280 DATA"[212]HE NEXT THING THAT YOU SHOULD DO IS 
  48. 10290 [131]"DETERMINE HOW YOU WANT TO CATAGORIZE 
  49. 10300 DATA"YOUR LIBRARY COLLECTION.  [217]OU CAN HAVE 
  50. 10310 [131]"UP TO 21 SEPERATE LOAD/SAVE OPTIONS 
  51. 10320 DATA"WITH UP TO 900 ITEMS IN EACH.  [212]HE 
  52. 10330 [131]"INFORMATION FOR THESE IS STORED IN DATA
  53. 10340 DATA"STATEMENTS AT THE END OF THE PROGRAM 
  54. 10350 [131]"AND CAN BE CHANGED TO FIT YOUR NEEDS.  
  55. 10360 DATA"[194]E SURE TO CHANGE THE NUMBER OF 
  56. 10370 [131]"LOAD/SAVE OPTIONS TO MATCH THE NUMBER 
  57. 10380 DATA"OF OPTIONS YOU HAVE IN THE DATA 
  58. 10390 [131]"STATEMENTS. (null)HIS NUMBER IS CONTAINED IN
  59. 10400 DATA"A DATA STATEMENT FOLLOWED BY A REM 
  60. 10410 [131]"STATEMENT INDICATING THAT IT IS THE 
  61. 10420 DATA"NUMBER OF LOAD/SAVE OPTIONS. [212]HE LAST 
  62. 10430 [131]"TWO DATA STATEMENTS IN THE PROGRAM 
  63. 10440 DATA"CONTAIN THE CLUB NAME AND CAN ALSO BE 
  64. 10450 [131]"CHANGED TO FIT YOUR NEEDS.  ATNFTER 
  65. 10460 DATA"MAKING THESE CHANGES BE SURE TO SAVE 
  66. 10470 [131]"THE PROGRAM SO THAT YOU CAN USE IT WITH
  67. 10480 DATA"YOUR CHOICES.
  68. 10490 [131]"
  69. 10500 DATA"[201]F YOU HAVE A DUAL DRIVE OR TWO 1541S 
  70. 10510 [131]"SELECT THE EQUIPMENT SETUP OPTION TO 
  71. 10520 DATA"CONFIGURE THE PROGRAM FOR YOUR SYSTEM.
  72. 10530 [131]"
  73. 10540 DATA"[212]O USE THE PROGRAM YOU CAN EITHER LOAD 
  74. 10550 [131]"AN EXISTING FILE AND ADD TO IT OR YOU 
  75. 10560 DATA"CAN SELECT THE ADD OPTION AND CREATE A 
  76. 10570 [131]"NEW FILE.  RIGHT$TEMS CAN BE SELECTIVELY 
  77. 10580 DATA"ADDED FROM THE DIRECTORY.  [195]ARE SHOULD 
  78. 10590 [131]"BE USED IN SELECTING DIRECTROY ENTRIES 
  79. 10600 DATA"TO BE INCLUDED IN YOUR LIBRARY SINCE 
  80. 10610 [131]"THE PROGRAM DOES NOT INCLUDE AN EDIT 
  81. 10620 DATA"OPTION.  [201]T WAS WRITTEN WITHOUT ONE 
  82. 10630 [131]"SINCE SUCH A ROUTINE TAKES UP A LOT OF 
  83. 10640 DATA"MEMORY AND ONCE RECORDED OUR CLUB DOES
  84. 10650 [131]"NOT CHANGE WHAT IS ON A DISKETTE.  (null)NCE
  85. 10660 DATA"YOU HAVE RECORDED ALL THE ITEMS YOU 
  86. 10670 [131]"WANT IN A CATAGORY YOU SHOULD SAVE THE 
  87. 10680 DATA"FILE.  [217]OU CAN THEN VIEW YOUR ENTRIES 
  88. 10690 [131]"AND/OR PRINT OUT A DETAILED REPORT FOR 
  89. 10700 DATA"EACH DISKETTE REFERENCED IN THE 
  90. 10710 [131]"CATAGORY.  (null)HE FILE CAN BE SORTED BY 
  91. 10720 DATA"DISK ID# OR FILENAME AT ANY TIME.
  92. 10730 [131]"
  93. 10740 DATA"[212]HE TWO PRINTER OPTIONS IDENTIFIED AS 
  94. 10750 [131]"BEING FOR LENOMMODORE PRINTERS SHOULD 
  95. 10760 DATA"WORK WITH ANY PRINTER PROVIDED THAT THE
  96. 10770 [131]"SECONDARY ADDRESS IS CORRECT FOR IT.  
  97. 10780 DATA"[201]F THE PROGRAM IS NOT PRINTING PROPERLY
  98. 10790 [131]"WITH YOUR PRINTER TRY CHANGING THE 
  99. 10800 DATA"SECONDARY ADDRESS.  [201]T IS SET TO 
  100. 10810 [131]"DEFAULT TO 4 AND CAN BE CHANGED USING 
  101. 10820 DATA"THE '[197]QUIPMENT [211]ETUP' OPTION. [201]F THIS 
  102. 10830 [131]"DOESN'T WORK YOU WILL NEED TO CHANGE 
  103. 10840 DATA"THE PRINTER CODES IN LINES 200-299.  
  104. 10850 [131]"
  105. 10860 DATA"[212]HE '[211][213][205][205][193][210][217] [210][197][208][207][210][212]' PRINT OPTION WILL 
  106. 10870 [131]"GIVE YOU A LIST OF EVERY CATAGORY IN 
  107. 10880 DATA"YOUR LIBRARY AND THE NAMES/ID#S OF EACH
  108. 10890 [131]"DISK RECORDED IN THE CATAGORY.  (null)HE 
  109. 10900 DATA"TOTAL NUMBER OF FILES AND DISKS WILL BE
  110. 10910 [131]"PRINTED AT THE END OF THE REPORT.  (null)O 
  111. 10920 DATA"OBTAIN A '[211][213][205][205][193][210][217] [210][197][208][207][210][212]' SELECT IT 
  112. 10930 [131]"FROM THE PRINT OPTIONS MENU. ATN ASCRIGHT$(null)VAL 
  113. 10940 DATA"[205][213][211][212] [197][216][201][211][212] [198][207][210] [197][193][195][200] [204][207][193][196]/[211][193][214][197] [207][208][212][201][207][206].  
  114. 10950 [131]"RIGHT$N CASE YOUR LIBRARY IS TOO LARGE TO 
  115. 10960 DATA"FIT ON A SINGLE DISKETTE THE SUMMARY 
  116. 10970 [131]"REPORT GIVES YOU AN OPTION TO ABORT OR 
  117. 10980 DATA"RETRY WHEN A FILE IS NOT FOUND.  [212]HUS A
  118. 10990 [131]"FILE DOESN'T HAVE TO BE ON THE '(null)IBRARY
  119. 11000 DATA"[196]ISK'.  [215]HEN PROMPTED CHANGE DISKETTES 
  120. 11010 [131]"AND SELECT THE 'RETRY' OPTION.  (null)O 
  121. 11020 DATA"AVOID FREQUENT CHANGING OF DISKETTES 
  122. 11030 [131]"LOAD/SAVE OPTIONS SHOULD BE SEQUENCED 
  123. 11040 DATA"SO THAT ONCE YOU CHANGE DISKETTES YOU 
  124. 11050 [131]"DO NOT HAVE TO CHANGE THEM AGAIN.
  125. 11060 DATA"
  126. 11070 [131]"
  127. 11080 DATA"[201] HOPE THAT YOU WILL FIND THIS PROGRAM
  128. 11082 [131]"TO BE BUG FREE AND USEFUL.  RIGHT$F YOU
  129. 11084 DATA"DO ENCOUNTER A PROBLEM PLEASE LET ME
  130. 11086 [131]"KNOW.  RIGHT$ WOULD ALSO LIKE TO HEAR OF
  131. 11088 DATA"ANY PROGRAM IMPROVEMENT IDEAS YOU
  132. 11090 [131]"HAVE.  (null)LEASE SEND ALL CORRESPONDENCE
  133. 11092 DATA"AND CONTRIBUTIONS YOU CARE TO MAKE TO..
  134. 11094 [131]"
  135. 11096 DATA"[198][210][197][196][201][197][160][202]. [204][193][217][194][197][210][199][197][210]
  136. 11098 [131]"14524 '(null)'CLOSE(null)TREET
  137. 11100 DATA"[207][205][193][200][193],[160][206][197][160]68137
  138. 11102 [131]"
  139. 11104 DATA"
  140. 11106 [131]"LEFT$ATN(null)(null)(null)CLOSELEN(null)(null)(null)(null)(null)RIGHT$(null)CHR$!!LEFT$ATN(null)(null)(null)CLOSELEN(null)(null)(null)(null)(null)RIGHT$(null)CHR$!!STOP
  141. 12000 DATA"[157]
  142.